



URSO PRÁTICO 68 DE PROGRAMAÇÃO DE COMPUTADORES 
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A MATEMÁTICA DA IRREGULARIDADE (1) 


Figuras geométricas. Medição. Auto-semelhança. 
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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Não envie pa- 
gamento antecipado. O atendimento será feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilizeo nº (011) 33 670 
DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, além 
do número da edição. 
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Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor — Caixa Postal 9442, 
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Os recursos do LOGO não se esgotam em 
seus eficientes comandos gráficos. 
Manipular palavras, representar dados, 
efetuar cálculos matemáticos — tudo 

o LOGO pode, e muito mais. 


Neste terceiro e último artigo da sé- 
rie sobre programação LOGO, exami- 
naremos as características fundamentais 


O 772 OR 
Tejefo EIN 
TARTARUGA 


dessa linguagem. Na realidade, segui- 
mos o caminho inverso do que é usual 
no aprendizado de outras linguagens, já 
que abordamos em primeiro lugar os co- 
mandos gráficos. Mas esta é a maneira 
mais fácil de entrar em contato com o 
universo da programação — principal- 
mente para crianças. Aliás, justamente 
por causa da popularidade de seus re- 
cursos gráficos, muita gente pensa que 
o LOGO é apenas uma “linguagem grá- 
fica”, própria para crianças. 


= EXPRESSÕES MATEMÁTICAS 
E VARIÁVEIS E NÚMEROS 
LE — NOMES E SENTENÇAS 
[ei O QUESÃO LISTAS 
im COMANDOS PARA LISTAS 


Nada mais longe da verdade. Como 
o LISP, seu antecessor, o LOGO foi 
projetado de modo a simplificar a ma- 
nipulação de palavras e listas de pala- 
vras e frases. Essa característica não im- 
pede, contudo, que complexos progra- 
mas de Inteligência Artificial sejam de- 
senvolvidos com a ajuda do LOGO. 

Ao estudar linguagens imperativas, 
inclusive o BASIC, começamos por ana- 
lisar seus elementos básicos, tais como 
as formas de representação de dados 















































O que é um micromundo LOGO? 

Um micromundo é um conjunto co- 
nexo de procedimentos, escritos em 
LOGO, que estruturam uma determina- | 
da situação ou ambiente de resolução 
de problemas cognitivos. 

Esses procedimentos podem ser 
combinados em outros procedimentos, 
de forma cada vez mais complexa, imi- 
tando, assim, o desenvolvimento natu- 
ral do conhecimento da criança sobre 
uma parte do mundo, 

Exemplificando: podemos construir 
um micromundo em que a tela é a gaio- 
la de um coelhinho, com lugares para | 
ele brincar, dormir, comer etc. Usando 
o LOGO, a criança e o professor elabo- 
ram vários procedimentos para dese- 
nhar o ambiente e seus objetos, fazer 
o coelhinho se movimentar, levá-lo até 
' a área de dormir etc., de maneira pro- 
gressiva e hierárquica. Esse micromun- 
do pode ser tão complexo e completo | 
' quanto se queira. 


(constantes e variáveis), os comandos de 
impressão etc. E o que faremos agora 
com a linguagem LOGO. 

Como nos artigos anteriores, apre- 
sentaremos sempre duas versões dos 
programas: a primeira, identificada pelo 
logotipo Apple, corresponde ao padrão 
MIT LOGO, em inglês, adotado univer- 
salmente com poucas variações; a segun- 
da, identificada pelo logotipo do MSX, 
corresponde à versão nacional, chama- 
da BRASLOGO, desenvolvida pela Uni- 
camp para a Itautec e adotada por ou- 
tros fabricantes. Ao final do artigo, da- 
mos a tradução dos comandos usados 
para o MLOGO, versão nacional mui- 
to difundida, destinada ao Apple. 


MATEMÁTICA EM LOGO 





Como qualquer linguagem de progra- 
mação que se preze, o LOGO dispõe de 
amplos recursos destinados a cálculos 
matemáticos com diferentes níveis de 
complexidade; não se restringe às qua- 
tro operações aritméticas. 

O LOGO não faz distinção entre nu- 
meros inteiros e reais (números que po- 
dem ser fracionários, como 1.2, 3.14156 


 etc.). Em alguns interpretadores, entre- 


tanto, a falta do ponto decimal nos ar- 


gumentos de uma operação força um re- 
sultado inteiro. 

Os operadores matemáticos são 
iguais aos da linguagem BASIC: soma 
(+), subtração (—), divisão (/), multi- 
plicação (*), parênteses etc. A ordem de 
execução das operações também é a 
mesma. Usando, por exemplo, o co- 
mando PRINT (ESCREVA, na versão 
em português), com função idêntica à 
que tem no BASIC, podemos fazer: 


ra 


PRINT 2 + 2*5 


Ya 


ESCREVA Z + 4*3 


O resultado da operação será igual a 
8, pois, nesta expressão, efetua-se a mul- 
tiplicação em primeiro lugar. 

As expressões matemáticas podem ser 
colocadas em outros comandos do LO- 
GO, como no desenho de gráficos: 


[é] 


FORWARD (10 + 120)/3.14 


a 


PARAFRENTE (10 + 120)/3.14 


Os procedimentos também compor- 
tam expressões matemáticas: 


ra 


TO PIzZ 
PRINT 3.14156*2 
END 


nt 


APRENDA PIZ 
ESCREVA 3.14156*2 
FIM 


Feito isso, sempre que digitarmos o 
comando PI2 pelo teclado, obteremos 
a seguinte resposta: 


2.28312 


Uma expressão pode utilizar variá- 
veis. Como você deve estar lembrado, 
as variáveis recebem nomes, que podem 
ser de qualquer comprimento, e são 
identificadas por dois pontos. Assim, 
um procedimento destinado a mostrar 
o cubo de um número qualquer seria es- 
crito da seguinte maneira: 





ra 


TO CUBO : NUMERO 
PRINT : NUMERO*: NUMERO* : NUMERO 
END 


nl 


APRENDA CUBO : NUMERO 
ESCREVA : NUMERO*: NUMERO* : NUMERO 
FIM 


O procedimento criado exige um ar- 
gumento numérico de entrada, e respon- 
de imprimindo na tela o cubo do mesmo: 


CUBO 3 
27 

CUBO 10 
1000 


Eis aqui outro procedimento, que cal- 
cula a média de dois números: 


[é | 


TO MEDIA :N1l :NZ 
PRINT (:N1l + :N2)/2 
END 






































APRENDA MEDIA :N1l :NZ 
ESCREVA (:N1 + :NZ2)/2 
FIM 


Esse procedimento requer a presen- 
ca de dois argumentos: 


MEDIA 2 4 


MEDIA 1 2 
1.5 


Em alguns interpretadores LOGO, a 
resposta ao segundo comando poderá 
ser igual a 1, ou seja, o resultado será 
mostrado em forma inteira, pois os ar- 
gumentos de entrada estavam expressos 
desse modo, Se isso ocorrer, podemos 
forçar uma operação com resultados 
fracionários, escrevendo: 

MEDIA 1.0 2.0 


Não se esqueça de colocar os dois ar- 
gumentos para o procedimento MEDIA. 
Caso contrário, o interpretador reclama- 
rã, exibindo uma mensagem de erro. 

Observe que, em todas as expressões 
aritméticas examinadas, o simbolo da 


4 LINGUAGENS 4 


operação matemática a ser realizada 
aparece entre os argumentos da opera- 
ção (por exemplo, 2+2). Essa notação, 
chamada infixa, é a mais usada em lin- 
guagens imperativas derivadas do FOR- 
TRAN. Mas existem dois outros tipos de 
notação: a sufixa, ou notação polaca in- 
versa (RPN), que é usada em linguagens 
como o FORTH (a mesma operação aci- 
ma seria escrita 22 +), e a prefixa, que 
também é aceita pela linguagem LOGO, 
Nesse tipo de notação, o comando pre- 
cede os argumentos que usa, 

Para realizar operações prefixas no 
LOGO, empregam-se comandos já exis- 
tentes no interpretador. Por exemplo: 


SUM 6 7 
DIVIDE 3 1.2 
PRODUCT 3 4 


Em alguns interpretadores LOGO, 
esses comandos recebem nomes diferen- 
tes, como QUOTIENT em vez de DIVI- 
DE, ou MULTIPLY em vez de PRO- 
DUCT. Pode acontecer, também, que 
o interpretador não contenha o proce- 





dimento SUBTRACT. Nesse caso, bas- 
ta usar SUM, com um número negativo. 


SOMA 6 7 
QUOCIENTE 3 1.27 
PRODUTO 3 4 


Se um desses comandos não existir no 
interpretador LOGO que esta usando, 
deverá fazê-lo APRENDER o novo pro- 
cedimento, 

Note que é possível utilizar funções 
dentro de funções, como em: 


DIVIDE SUM 3 2 SUM 4 5 


QUOCIENTE SOMA 3 2 SOMA 4 5 


que corresponde à notação infixa: 


PRINT (3+2)/(4+5) 





| | 
| 
— — - - RS time = = a — 


Não tente fazer o mesmo, porém, 
com os procedimentos CUBO e ME- 
DIA, desenvolvidos anteriormente, pois 
eles apenas imprimem os respectivos re- 
sultados, não tendo meios de ““passá- 
los" a uma outra função. Experimen- 
te, por exemplo, digitar a seguinte ex- 
pressão para ver o que acontece: 


CUBO MEDIA 3.4 7.88 


Para retornar um resultado, o proce- 
dimento precisa incluí-lo na lista de va- 
riáveis na chamada. Uma alternativa 
mais simples consiste em usar o coman- 
do OUTPUT (ou ENVIE, na versão pa- 
ra a língua portuguesa): 


ed) 


TO MEDIA :N1 :N2 
OUTPUT (:N1l + :N2)/2 
END 


Ml 


APRENDA MEDIA :N1l :N2 
ENVIE (:N1I + :N2)/2 
FIM 


Agora, você poderá recorrer ao pro- 
cedimento MEDIA como argumento de 
outro procedimento. 


FUNÇÕES MATEMATICAS | 





O LOGO possui várias funções ma- 
temáticas que facilitam o cálculo de ex- 
pressões mais complexas — algébricas, 
trigonométricas etc. 


1 


REMAINDER Resto de uma divisão 


ROUND Arredondamento 
ABS Absoluto 

INT Inteiro 

SORT Raiz quadrada 
SIN seno 

cos Co-seno 

RESTO Resto de uma divisão 
INTEIRO Inteiro 

RAIZQ Raiz quadrada 
SENO Seno 

Cos Co-seno 


Só alguns interpretadores têm o con- 
junto completo dessas funções. 

O LOGO conta ainda com um gera- 
dor de números aleatórios, útil em uma 
série de aplicações, inclusive jogos. 


5 = -— = Te am e 





E E— a 


Eis um programa que simula dez lan- 
çamentos de um dado: 


Lá] 


TO DADOS 
REPEAT 6 [PRINT RANDOM 6] 
END 


ny 


TO DADOS 
REPITA 6 [ESCREVA SORTEIEATEÉ 6] 
FIM 


Para inicializar uma segiência alea- 
tória, utiliza-se o comando RANDO- 
MIZE (REPRODUZA, na versão 
BRASLOGO). 


PALAVRAS 


É possível especificar palavras (cons- 
tantes alfanuméricas) em LOGO, iden- 
tificando-as com o serial de aspas. Se 
quiser, por exemplo, imprimir no vídeo 
a palavra COMPUTADOR, digite: 


ra 


PRINT 


nu 


ESCREVA 





"COMPUTADOR 


"COMPUTADOR 


Note que não se fecham as aspas, co- 
mo no BASIC. Se você se esquecer de 
colocar as aspas antes da palavra, a má- 
quina entenderá que COMPUTADOR é 
o nome de um número ou de procedimen- 
to criado anteriormente; não o encontran- 
do, exibirá uma mensagem de erro. 

Como o comando de impressão acei- 
ta apenas um argumento, as formas que 
se seguem também são incorretas: 


ra 


PRINT 
PRINT 


Lo 


ESCREVA 
ESCREVA 


"BOM DIA 
“BOM DIA 


"BOM DIA 
"BOM "DIA 


No primeiro caso, o interpretador 
LOGO informará que ainda não conhe- 
ce DIA. No segundo, dirá que não sabe 
o que fazer com “DIA (ou, dependen- 


| RAIZQ 





| | | | 


=== 


TRADUÇÃO PARA O MLOGO 
Os comandos do MLOGO, para o 
Apple, correspondentes aos comandos 

| do BRASLOGO deste artigo, são: 


BRASLOGO 


ESCREVA 
ATRIBUA 

| COLOQUE 
SOMA 
PRODUTO 
QUOCIENTE 
RESTO 


MLOGO 


MOSTRAR 
FACA 


SOME 
PRODUTO 
QUOC 
RESTO 
RQD 

INT 

APROX 
RESORTEIE 
SORTEIE 
SEN 

cos 

ATAN 
PALAVRA 
SENTENÇA 
PRIMEIRO 
SEMPRIMEIRO 
ULTIMO 
SEMULTIMO 
SAIDA 


INTEIRO 


REPRODUZA 
SORTEIEATÉ 
SEN 

cos 
ARCTAN 
PALAVRA 
SENTENÇA 
PRIMEIRO 
SEMPRIMEIRO 
ÚLTIMO 
SEMUÚLTIMO 
| ENVIE 





do do computador, que há um argumen- 
to a mais). É importante lembrar que 
um espaço em branco sempre indica, em 
linguagem LOGO, o fim de uma pala- 
vra, e que não podemos colocar mais de 
uma palavra após um sinal de aspas. 
Para imprimir duas palavras usando 
um mesmo comando, precisamos antes 
juntá-las em um único argumento. Exis- 
te um comando primitivo que faz isso: 


é 


PRINT WORD “BOM 


Lo 


ESCREVA PALAVRA "BOM "DIA 


“DIA 


O comando WORD (ou PALAVRA) 
toma dois argumentos — que são letras 
ou palavras precedidas de aspas — e Os 
reúne em uma só palavra. Esta é passa- 
da para o comando PRINT (ou ESCRE- 
VA), que então a coloca na tela. 

O LOGO possui diversos comandos 
extremamente poderosos para lidar com 
palavras. Para extrair letras de uma pa- 
lavra, utilizam-se estes comandos: 






FIRST - Extrai a primeira letra. 
LAST - Extrai a última letra. 
BUTFIRST - Extrai todas as letras, me- 
nos a primeira. 

BUTLAST - Extrai todas as letras, me- 
nos a ultima. 


Como exemplo, tente os comandos: 


FIRST “ABCD 

LAST “ABCD 

BUTFIRST "ABCD 

BUTLAST "ABCD 

FIRST BUTFIRST "ABCD 

PRINT LAST BUTLAST "ABCD 

PRINT WORD FIRST "ABCD LAST 
“ABCD 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


Note como os comandos são enca- 
deados: FIRST BUTFIRST extrai a se- 
gunda letra da palavra ABCD; LAST 
BUTLAST extrai a penúltima palavra etc. 

O pequeno procedimento recursivo 
que mostramos a seguir é capaz de ex- 
trair todas as letras de uma palavra: 


TO LETRAS : PALAVRA 
IF : PALAVRA = * THEN STOP 
PRINT FIRST : PALAVRA 





LETRAS BUTFIRST 
END 


: PALAVRA 


O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quarta linha, usa como 
argumento o BUTFIRST da palavra que 
foi entrada. Esta vai sendo reduzida até 
não ter mais nenhuma letra. A recursão 
só se encerra quando o teste executado 
pelo IF da segunda linha é verdadeiro. 
A palavra vazia é assinalada pelas aspas 
e um espaço em branco. 


PRIMEIRO - Extrai a primeira letra. 
ULTIMO - Extrai a última letra, 
SEMPRIMEIRO - Extrai todas as le- 
tras, menos a primeira. 
SEMULTIMO - Extrai todas as letras, 
menos a última. 


Como exemplo, tente os comandos: 


PRINT PRIMEIRO "ABCD 
PRINT ULTIMO "ABCD 
PRINT SEMPRIMEIRO "ABCD 
PRINT SEMULTIMO "ABCD 





PRINT PRIMEIRO SEMPRIMEIRO 
"ABCD 

PRINT ÚLTIMO SEMUÚLTIMO 

PRINT PALAVRA PRIMEIRO 

ULTIMO "ABCD 


Note como os comandos são enca- 
deados: PRIMEIRO SEMPRIMEIRO 
extrai a segunda letra da palavra ABCD; 
ULTIMO SEMULTIMO extrai a penúl- 
tima palavra e assim por diante. 

O pequeno procedimento recursivo 
mostrado a seguir é capaz de extrair to- 
das as letras de uma palavra: 


APRENDA LETRAS : PALAVRA 

SE : PALAVRA = *" ENTÃO [PARE] 
ESCREVA PRIMEIRO : PALAVRA 
LETRAS SEMPRIMEIRO : PALAVRA 
FIM 


"ABCD 
"ABCD 


O procedimento ilustra o conceito de 
palavra vazia — ou seja, palavra sem ne- 
nhum caractere. A chamada recursiva 
de LETRAS, na quarta linha, usa como 
argumento o SEMPRIMEIRO da pala- 
vra que foi entrada. Esta vai sendo re- 
duzida até não ter mais nenhuma letra. 
A recursão só se encerra quando o teste 
executado pelo SE da segunda linha é 
verdadeiro. A palavra vazia é assinala- 
da pelo sinal de aspas seguido de um es- 
paço em branco. 


ATRIBUIÇÃO 





O comando de atribuição — LET, 
em linguagem BASIC — também exis- 
te em LOGO, Com ele, podemos arma- 
zenar números ou resultados de expres- 
sões em variáveis, e dar-lhes nome. 


MARE "IDADE 15 


ATRIBUA "IDADE 15 


Podemos ainda colocar uma palavra 
em variável: 


MAKE "NOME “JOAQUIM 


ATRIBUA "NOME "JOAQUIM 
Experimente verificar o conteúdo das 


variáveis NOME e IDADE, com: 








O a 


- E = —— E E—— em ape E E =3— E ço TE E E a E = 


“ 


PRINT : NOME 
PRINT : IDADE 


Dt 


ESCREVA :NOME 
ESCREVA : IDADE 


Como você provavelmente deve ter 
observado, usamos dois pontos, e não 
aspas, quando estamos nos referindo a 
uma variável já criada. Esta é uma ca- 
racterística fundamental do LOGO. 
Nessa linguagem, ao contrário do BA- 
SIC, é necessário diferenciar explicita- 
mente as referências à variável (NO- 
ME) e ao seu conteúdo (NOME). 

Na realidade, todos os elementos do 
LOGO são definidos do mesmo modo, e 
armazenados na mesma estrutura. Tanto 
os comandos (programas) quanto os da- 
dos são palavras. Números também são 
tratados como palavras. Assim, é perfei- 
tamente possível fazer-se algo como: 


ra 


PRINT "2.34 + "19.87 
PRINT BUTFIAST 12.345 


a 


ESCREVA "2.34 + "19.87 
ESCREVA SEMPRIMEIRO 12.345 


Eis aqui um pequeno programa que 
ilustra essa característica do LOGO. Ele 
imprime uma tabela contendo o quadra- 
do e a raiz quadrada de todos os núme- 
ros inteiros, de Nl a N2: 


[1 


TO TABELA :N1l :NZ 
IF :N1l=:N2Z2 THEN STOP 
PRINT WORD :N1 :N1*N1 SQRT(:N1) 


TABELA :N1+1 :NZ 
END 
TO TABELA :N1 :NZ 


SE :Nl=:N2 ENTÃO [ PARE] 


ESCREVA PALAVRA :N1 :N1I*N1 
RAIZQ(:N1) 
TABELA :Nl+1 :NZ 


FIM 
Para fazer o procedimento TABELA 
chamar a si mesmo, usamos a recursão 


incrementando a variável de início :N1. 
A segunda linha do procedimento veri- 
fica o valor dessa variável, parando se 
ela já tiver atingido o máximo desejado 
(:N2). Caso contrário, imprime na tela 
uma linha contendo o número, seu qua- 
drado e sua raiz quadrada. Como o co- 
mando' de escrita aceita um só argu- 
mento, precisamos usar um “'aglutina- 
dor" dos diferentes números, colocan- 
do-os em uma única lista, por meio do 
comando WORD (ou PALAVRA). 


Todo o potencial do LOGO se reve- 
la quando examinamos a última de suas 
estruturas básicas de dados: a lista, um 
conjunto de palavras indicado por meio 
de colchetes. Por exemplo: 


[TIGRE LEAO GATO] 


é uma lista com três elementos, separa- 
dos por brancos. 
Podemos dar nome as listas: 


é] 


MAKE "FELINOS [TIGRE LEAO GATO] 


MAKE "IMPARES [1 3 5 7 9] 
MAKE "COLEGAS [JOAQUIM 15 MARIO 
14] 


nt 


ATRIBUA 
GATO] 
ATRIBUA "IMPARES [1 357 9] 
ATRIBUA "COLEGAS [ JOAQUIM 15 
MARIO 14] 


"FELINOS [TIGRE LEÃO 


Se usarmos o comando PRINT (ou 
ESCREVA) seguido do nome de uma 
lista, obteremos seu conteúdo comple- 
to. Uma lista pode conter outras listas: 


é) 


MAKE "CARNIVOROS [FELINOS LOBO 
RAPOSA ] 


Da 


ATRIBUA "CARNIVOROS [FELINOS 
LOBO RAPOSA ] 


Todas as funções utilizadas para ma- 


nipulação de palavras aplicam-se tam- 
bém a listas. Por exemplo: 


=" 


PRINT FIRST FELINOS 











E a 


Quais as etapas para o desenvolvimen- 
to de uma nova linguagem? | 

Desenvolver uma nova linguagem 
não é difícil — tanto que existem cen- 
tenas delas que nunca passaram do es- 
tágio de mera “ brincadeira" científica 
para uma efetiva implementação e dis- 
tribuição no mercado, 

Em primeiro lugar, deve-se definir se 
a linguagem será imperativa, funcional, | 
procedimental etc. e que tipo de co- | 
mandos, funções e instruções terá. De- 
pois, é preciso decidir se será uma lin- 
gquagem interpretada, compilada, ou 
ambas. 

Finalmente, escreve-se o programa | 
— geralmente em Assembler, C, ou 
qualquer outra linguagem otimizada pa- 

| ra o desenvolvimento de ferramentas 
de software — que irá realizar o proces- 
so de tradução da nova linguagem em 
códigos de máquina destinados ao 
computador escolhido. 

As técnicas para a elaboração do 
compilador ou interpretador, comple- 
xas e altamente especializadas, são en- 
sinadas em cursos superiores de análi- 
se de sistemas. | 





nd 


ESCREVA PRIMEIRO FELINOS 


Isso fará com que o primeiro elemen- 
to da lista, que é TIGRE, seja impresso 
na tela. 

Uma lista pode ter apenas um ele- 
mento, ou nenhum. Nesse caso, deno- 
mina-se lista vazia, e é representada pe- 
lo símbolo [ ]. Para unir duas listas, usa- 
mos o comando primitivo SENTENCE 
(ou SENTENÇA): 


ra 


PRINT SENTENCE COLEGAS 


NM 


ESCREVA SENTENÇA COLEGAS 
IMPARES 





IMPARES 


Procuramos aqui demonstrar a rique- 
za e a versatilidade do LOGO, Espera- 
mos ter motivado o leitor a continuar 
explorando essa poderosa linguagem. 


ei = 
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FUNÇÕES 


PODEROSAS 


O comando DEF FN permite incorporar 
ao elenco de funções matemáticas 

do BASIC um conjunto adicional 

de cálculos de grande interesse para 

o programador. Utilize-o. 


No artigo da página 608, vimos co- 
mo definir novas funções e usá-las em 
diversos tipos de manipulação de dados. 
Trataremos aqui de certas funções ma- 
temáticas uteis ao programador. 

Um extenso grupo de funções mate- 
máticas refere-se aos módulos, números 
que “'cabem"* dentro de outros núme- 
ros, ou que restam de uma divisão. 

Há várias aplicações para esses cál- 
culos. Tomemos como exemplo uma 
questão corriqueira, que envolve a ca- 
tegoria mais geral dos multiplos: qual é 
o primeiro múltiplo de 100, menor ou 
igual a 345? Não é preciso ser nenhum 
gênio para chegar à resposta — 300, que 
é o arredondamento do número 345 pa- 
ra baixo, até a centena mais próxima. 
Mas qual é o primeiro múltiplo de 64, 
menor ou igual a 511? Eis uma função 
que resolve esse problema: 


ES ne hs 


DEF FNMN(N1,N2)=INT(N1I/N2Z)*NZ2 


O segundo argumento corresponde 
ao número cujo múltiplo queremos 
achar; o primeiro, ao valor máximo des- 
se múltiplo. Nos exemplos dados, pode- 
riamos usar: PRINT FNMN(345,100) e 
FNMN(511,64). Como o Apple, o 
TK-2000 e o TRS-Color não admitem mais 
que um argumento por função, a linha 
anterior não pode ser executada nessas 
máquinas. A solução é utilizar só um ar- 
gumento (veja o artigo da página 608). 

Também interessante é a função que 
determina o primeiro múltiplo de um 
número, superior a um certo valor. 
Exemplo: o primeiro múltiplo de 100 
maior que 3 022 é 3 100. 


= Th 


DEF FNMM(N1,N2)=INT(N1/N2) *N2+ 
N2 
Os argumentos têm o mesmo signifi- 
cado que os da função anterior. 








Existem ainda outros tipos de arre- 
dondamento. O mais comum consiste 
em arredondar os dígitos da parte fra- 
cionária de um número usando a “'re- 
gra do 5": se o dígito a desprezar é 
maior ou igual a 5, o que está à sua es- 
querda é arredondado para cima; caso 
contrário, este não muda. A função que 
executa esse tipo de arredondamento é: 


DEF FNAR(N,D)=INT(N*10**D)/10** 
D 


DEF FNAR(N,D)=INT(N*107D)/10TD 


nt 


DEF FNAR(N,D)=INT(N*10"D)/10"D 


A função tem dois argumentos: N, O 
número a arredondar, e D, o número de 
decimais desejado. Se quisermos, por 
exemplo, arredondar para dois decimais 
o número 23.4567, especificamos PRINT 
FNAR(23.4567,2). 

Também é útil a função de arredon- 
damento que determina o próximo nú- 
mero inteiro a partir de um número fra- 
cionário. É uma função diferente de 
INT (que obtém a parte inteira de um 
número, arredondando em alguns ca- 
sos), ou de FIX (que determina apenas 
a parte inteira, sem arredondar): 


RT 


DEF FNRD(N)=FIX((FIX(N*10)+SGN 
(N)*5)/10) 


= TIC 


DEF FNRD(N)=INT((INT(N*10)+SGN 
(N)*5)/10) 


Outra função importante é a que cal- 
cula o resto inteiro de uma divisão en- 
tre dois números N1 e N2. 


= TIA 
DEF FNRE(N1,N2)=N1-FNMN(N1,NZ) 


Utilizamos aqui a função FNMN, já 
definida. A função FNRE pode ser em- 





MAIOR MÚLTIPLO 
MENOR MÚLTIPLO 
RESTO DE UMA DIVISÃO 
ARREDONDAMENTO 
PAR OU ÍMPAR? 








pregada quando se quer determinar se 
um número é par ou impar. 


TIC 


DEF FNPI(N)=2-INT(N/2)*2 


TIA 


DEF FNPI(N)=FNRE(N,2) 


Se o resultado da função for 1, o nú- 
mero é ímpar; se for O, é par. 

O menu deste programa permite tes- 
tar as funções apresentadas: 


— Tia 


25 DEF FNMM(N1,N2)=INT(N1I/N2Z)*N 
2+N2 
30 DEF 
2 

35 DEF FNRE(N1,N2)=N1I-FNMN(N1,N 
2) 

40 DEF FNAD(N) =FIX((FIX(N*10)+S 
GN (N)*5)/10) 

50 DEF FNPI(N)=FNRE(N,2) 

60 DEF FNAR(N,D)=INT(N*10"D)/10 
“D 


FNMN (N1,N2)=INT(N1I/NZ)*N 


100 CLS 

110 PRINT “DEMONSTRACAO DE FUNC 
OES MATEMATICAS”" 

120 PRINT 

130 PRINT "(1) PRIMEIRO MULTI 
PLO MAIOR” 

140 PRINT "(2) PRIMEIRO MULTI 
PLO MENOR OU IGUAL” 

150 PRINT “ (3) RESTO DE UMA D 
IVISAO” 

160 PRINT " (4) ARREDONDAMENTO 
DE UM NUMERO” 

165 PRINT "(5) ARREDONDAMENTO 
PARA O MAIOR INTEIRO” 

170 PRINT “(6) PAR OU IMPAR” 
180 PRINT " (7) FIM” 


190 PRINT 

200 INPUT "OPCAO ";OP 

210 IF 0P=7 THEN STOP 

220 IF 0P>3 THEN INPUT 
TO ";N:GOTO 250 

230 INPUT "PRIMEIRO ARGUMENTO " 
:NI 

235 INPUT "SEGUNDO ARGUMENTO ”"; 
N2 

240 IF 
250 IF 
260 IF 
270 IF 


" ARGUMEN 


OP=1 
OP=2 
0P=3 
OP=4 


K=FNMM (N1,N2) 
X=FNMN (N1,N2) 
X=EFNRE (N1,N2) 
THEN X=FNAR (N) 

275 IF 0P=5 7 | X=ENRD (N) 

280 IF OP=6 THEN X=FNPI(N) 

290 PRINT “RESULTADO = ";X 
300 GoTo 120 











] 








Quer dizer que você acredita ser 

fácil blefar um computador? Experimente 
estes programas: eles mudarão 

sua “arrogante” opinião, colocando-o 
diante de um imbatível adversário. 
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E JOGOS DE BLEFE 
e ALEATORIEDADE 
o “COMO CLASSIFICAR 

AS POSSIBILIDADES 
Pa AS REGRAS DO JOGO 


Um computador que possa enfrentar: 
um blefe não é coisa do futuro: já exis- 
te aqui e agora. Com os programas em 
BASIC deste artigo, não há escapatória: 
a máquina será implacável com quem 
ousar desafiá-la em um clássico jogo de 
blefe: Papel, Pedra, Tesoura. 


É UMA PEDRADA 


Jogos de blefe são todos aqueles em 
que ambos os participantes mostram 
suas Jogadas ao mesmo tempo, não ha- 
vendo nenhuma informação prévia so- 
bre a probabilidade da jogada de cada 
um. Um exemplo clássico é Papel, Pe- 
dra, Tesoura, no qual dois jogadores re- 
presentam com gestos a forma de uma 
pedra, de uma folha de papel ou de uma 
tesoura. A escolha de cada um é revela- 
da simultaneamente, como em um jogo 
de par ou impar. Ganha a rodada aquele 
que mostrar o objeto mais poderoso, de 
acordo com as seguintes regras: 





- tesoura corta papel, portanto, tesou- 
ra ganha; 

- papel embrulha pedra, portanto, pa- 
pel ganha; 

- pedra quebra tesoura, portanto, pedra 
ganha. 


Se ambos os Jogadores escolherem o 
mesmo objeto, haverá empate. Joga-se 
um número predeterminado de rodadas 
— vinte, por exemplo — e conta-se um 
ponto para cada rodada ganha. 

Neste artigo, desenvolveremos duas 
versões de um programa que joga Pa- 
pel, Pedra, Tesoura muito bem. Tão 
bem que você até se sentirá um pouco 
abalado quando perceber que o compu- 
tador parece adivinhar suas intenções... 


MAIS SOBRE BLEFE 





Como um programa é capaz de pre- 
dizer eventos aparentemente aleatórios? 
Uma das '“'saídas'” seria a simples adi- 
vinhação — ou seja, O programa sortea- 
ria números ao acaso (digamos, o nu- 
mero 1 representaria o papel, o 2, a pe- 
dra, e o 3, a tesoura), tanto para deter- 
minar a jogada do computador, quan- 
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O USO DA ESTATÍSTICA 
O QUE É ALISAMENTO 
EXPONENCIAL 

pu TÉCNICA DE 
SOMA CUMULATIVA 





to para tentar adivinhar a do oponente. 
Um jogo como este não é satisfatório do 
ponto de vista estratégico: com um nú- 
mero de rodadas grande, certamente se 
chega a um empate. 

Para sorte do computador, entretan- 
to, o homem não age de maneira pura- 
mente aleatória, tendendo a exibir com 
maior frequência um ou dois tipos de 
objetos. Quase sempre, porém, os pa- 
drões de apresentação são bem mais 
complexos, seguindo ciclos ou mudan- 
do gradativamente as probabilidades. 

Além de sua incapacidade natural de 
atuar como um gerador perfeito de nu- 
meros aleatórios, o jogador humano 
tem mais um ponto vulnerável: a com- 
pulsão a responder ao que acontece no 
jogo. Quer esteja ganhando, quer este- 
ja perdendo, é quase certo que formu- 
lará “teorias” — apelando, via de re- 
gra, para a superstição — sobre quais 
são as respostas com maior chance de 
garantir-lhe a vitória. A distração pro- 
porcionada pelo jogo também tende a 
reduzir a frieza matemática de um Jo- 
gador, mesmo que ele lute contra isso. 

De qualquer forma, não resta dúvi- 
da de que um jogador humano, por ser 
humano, tentará ampliar seus ganhos ao 
máximo de alguma estratégia. Isso sig- 
nifica que haverá sempre um viés, ou vi- 
cio de jogada, que, se cuidadosamente 
analisado, poderá dar indícios de como 
será seu próximo lance. 

Essa análise poderia ser feita por 
meio de cálculos estatísticos de diversos 
tipos. Mas o computador é bem mais 
eficiente no que se refere a cálculos — 
e é isto o que lhe permitirá sair vitorio- 
so em um jogo de blefe. 

Se um jogador modifica sua estraté- 
gia gradualmente, a técnica estatistica 
mais adequada é a do alistamento expo- 
nencial. Se, ao contrário, o oponente 
muda de tática rapidamente, a melhor 
técnica é a da soma cumulativa. 





COMO JOGAR 


Para enfrentar o computador em Pa- 
pel, Pedra, Tesoura, você precisa sim- 
plesmente pressionar a tecla 1, 2 ou 3, 
quando chegar a sua vez. | 

importante notar o seguinte: em. | 








bora a máquina tenha uma grande chan- 
ce de vencê-lo, ela não frauda o jogo, 
“olhando” sua jogada antes de decidir 
a dela. Na verdade, o método utilizado 
consiste em fazer o computador anali- 
sar as escolhas já feitas e decidir antes 
que você entre uma nova jogada. 


ALISAMENTO EXPONENCIAL 





O alisamento exponencial é a técni- 
ca estatística empregada para regulari- 
zar o contorno de uma curva cheia de 
altos e baixos. Se você colocar em um 
gráfico o número de pedras, tesouras € 
papéis que o oponente apresentou em 
cada unidade de tempo (por exemplo, 
a cada dez jogadas), a curva terá o as- 
pecto de uma serra. Porém, regularizan- 
do o contorno da curva — ou seja, tor- 
nando as subidas e descidas mais ''sua- 
ves” —, o computador detectará algu- 
ma tendência significativa a longo pra- 
zo, como, por exemplo, um aumento ex- 
pressivo na apresentação de tesouras. 

As técnicas de alisamento utilizam so- 
mas ponderadas das jogadas anteriores. 
No caso específico do alisamento expo- 
nencial, pesos menores são dados para 
jogadas mais antigas, e pesos maiores, 
para jogadas mais recentes. 

Ao executar o programa, ele inicial- 
mente pedirá que você entre um “fator 
de esquecimento”. Quanto maior o va- 
lor (inteiro, positivo) que você fornecer, 
maior o número de jogadas anteriores 
que o computador deixará de conside- 
rar. Assim, ficará mais fácil vencê-lo, 


o CLEAR 31999: GOSUB 500: 


BORDER O: PAPER O: INK 7: 
CLS 

7 DIM AS(3,9): LET AS(1)="PE 
DRA”: LET AS(2)="PAPEL”": LET 
AS (3) =" TESOURA” 

10 DIM H(3,2): DIM X(2): DIM 
0(3,3): DIM C(2,3): DIM A(2Z,3 
)j: DIM P(3,3): CLS 

20 FOR I=1 TO 3: LET H(1I,1)=- 
cos ((I-2)*P1*2/3): LET H(I,2 


j==SIN ((I-2)*P1I*2/3): NEXT 1 

30 FOR T=1 TO 3: FOR J=1 TO 2 

+ LET A(J,T)=.01: NEXT J: 

NEXT T 

40 INPUT "DIGITE FATOR DE ESQ 

VUECIMENTO (0-1). VALOR SUG 

ERIDO  .B5 ";W 

70 FOR I=1l TO 3: FOR J=1 TO 3 
LET P(1I,J)=SGN (I-J-3*INT ( 

(I1-J+1.5)/3)): NEXT J: NEXT I 


: LET S=0 

80 LET U=1: LET S=0: LET U2=0 
» LET WW=0: LET U3=0 
100 LET V=INT (RND*3)+1 
110 PRINT INK 6; PAPER 2;”" 1 


=PEDRA, 2=PAPEL, 3J=TESQURA ” 


120 INK 6: PLOT 8,167: DRAW 
239,0: DRAW 0,-159: DRAW -239, 
O: DRAW 0,159 

200 FOR T=1l TO 3: LET I=U 

210 IF (U2=0 AND T=2) OR (U3=0 
AND T=3) THEN GOTO 280 

220 IF T=2 THEN LET I=ABS ((U 
=2)-2* (U=VV)-3* ( (U<>U2) AND ( 
U<>2VV))) 

230 IF T=3 THEN LET I=ABS ((U 
=3)-2* (U=V3)-3* ( (U<>U3) AND ( 
U<>V3))) 

240 FOR J=1 TO 2: LET A(J,TJ=A 
(J,T)*W+H(I,J): LET C(J,T)=CiJ 
«T)*W+3*H(T,J)*H(T,J)+. O] 

250 LET X(J)=A(J,T)/CilJ.T): 
NEXT q 

260 FOR 1=1 TO 3: LET QUI, T)=l 
/3: FOR K=1 TO 2: LET Q(I,T)=K 
(K)*B(I,K): NEXT K: NEXT 1 

280 NEXT T: LET UZ=U: LET VV=V 
* IF U=V THEN LET VV=U+1-3* 
INT 
290 


(U/3) 
IF U<>V THEN LET U3=U: 


LET V3=V: IF P(U3,V3)<0 THEN 
LET WW=U3: LET U3=V3: LET VI= 
Wo 

300 LET X=-1E30: FOR T=1 TO 3: 


IF (T=2 AND U2=0) OR (T=3 AND 
U3=0) THEN GOTO 3/70 


310 IF T=1 THEN GOTO 350 

311 IF T=2 THEN GOTO 320 

312 IF T=3 THEN GOTO 340 

320 LET WW=6-U2Z-VV: LET Ql=Q(1 
T): LET 02=0(2,T): LET Q3=Q(3 
TJ): LET Q(UZ,T)=QI: LET QUVV, 

T)=02: LET Q(WW,T)=03 

330 GOTO 350 

340 LET WW=6-U3-V3: 
T): LET Q2=0(2,T): 
T): LET Q(U3,T)=Ql: 

T)=02: LET Q(WW,T)=03 

350 FOR G=1 TO 3: LET P=0Q0: FOR 
I=1 TO 3: LET P=P+P(G,I)*Q(I,T 
): NEXT I: IF P>X THEN LET X= 
P: LET V=G 
360 NEXT G 
370 NEXT T 
400 INK 7: 

DISSE ” 


LET Ql=Q(1 
LET Q3=0(3 
LET Q(V3, 


PRINT AT 2,4;"VOCÊ 


“405 FOR M=-3 TO 16: SOUND .0l1, 


M: NEXT M 

410 LET KS=INKEYS: IF K5="" 

THEN GOTO 410 

412 IF KS<”"1” OR K8>"3”" THEN 

Goro 410 

415 LET U=VAL KS$ 

420 PRINT AT 3,4;AS(UJ;AT 2,21 
* INK 5;"EU DISSE “;AT 3, 21:A85 
(V) 

430 POKE 23681,U-l: LET O=USR 

32000: POKE 23681,127+V: LET O 

=USR 32000 

440 LET S=S+P(U,V): PRINT AT 

16,B:"SEU SCORE E ";5;”" ” 

450 INVERSE 1: IF V=U THEN 

PRINT AT 18,10;”" UM EMPATE ”": 

GoTo 490 

460 IF (U=3 AND V=2) OR (U=2 

AND V=1) OR (U=1 AND V=3) THEN 
PRINT AT 18,12;” VOCE VENCEU 
". GOTO 490 


470 PRINT AT 18,11;” EU VENCI” 
490 INVERSE O: FOR D=1 TO 2: 

PAUSE O: NEXT D: FOR N=2 TO 18 
: PRINT PAPER O; INK Z;AT N,2 


". NEXT N: GOTO 200 

500 FOR N=32000 TO 32284: READ 
A: PRINT N,A: NEXT N 

505 LET N=32069: POKE 23728,N- 
256*INT (N/256): POKE 23729, 
INT (N/256) 

510 RETURN 

520 DATA 33,6,72,58,129,92,203 
 127,40,5,203,191,33,22,72,221 
-42,176,92,17,72,0,254,0,40 
530 DATA 8,254,1,40,2,221,25, 
221,25,221,229,209,6,3,197,229 
.6,8,197,1,3,0,235,237,176,235 
136,4,3,0 

540 DATA 237,66,193,16,239,225 
,1,32,0,9,193,16,227,201 

550 DATA 0,0,0,0,0,0,0,0,0,0,0 
:10,0,30,0,0,97,128,3,129,197Z,4 
,/15,225,10,56,112,21,32,48,30, 
192,16,11,160,16,7,120,32 

560 DATA 3,181,96,1,234,192,0, 
255,128,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0 

$70 DATA 0,16,0,0,56,0,0,124,0 
-0,284,0,1,223,0;3;111;7128,7, 
191,192,14,219,224,27,109,240, 
53,254,248,106,219,112,245,109 
224, 122 

580 DATA 190,192,61,91,128,930, 
239,0,15,182,0,7,92,0,2,232,0, 
1,240,0,0,224,0,0,0,0 
590 DATA 0,0,0,0,0,0,0,0,0 
600 DATA 0,0,0,0,0,0,0,0,56,0 
0,104,0,0,208,0,1,160,0,3,64, 
;/6,128,0,13,0,0,26,0,0,52,0,1 
232,0,63,48,0 

610 DATA 100,32,0,196,96,0,201 
,192,0,115,96,0,6,32,0,4,32,0. 
6,64,0,3,129,0,0,0,0,0,0,0,0,0 
0 


5 CLEAR 1000:PMODE 3,1:COLOR 4, 
2: PCLS 

6 GOSUB 1000 

7 C=B*ATN(1)/3 

10 DIM H(3,2) A (2) ,510(3, 3) :C(2,3 
),A(2,3),P(3,3):CLS 

20 FOR I=1l TO 3:H(1I,1)=-COS((I- 
2)4C) :H(I,2)=-SIN((1I-2)*C) :NEXT 
30 FOR T=1l TO 3:FOR J=1 TO 2:A( 

J.T)=0:C(J,T)=.0):NEXT J,T 

40 PRINT"DIGITE O FATOR DE ESQU 
ECIMENTO. INTERVALO PERMITIDO 
OA dl.” 

50 PRINT"O=SEM MEMORIA ALEM DE 
1 JOGADA" : PRINT"I=ESTRATEGIA FI 

XA" 

60 PRINT"VALOR SUGERIDO=.8B5": IN 
PUT W 

70 FOR I=1 TO 3:FOR J=1 TO 3:FO 

R J=1 TO 3:P(I,J)=SGN(I-J-3*INT 
((1-J+1.5)/3)) :NEXT J,l 

BO S=0:U2=0:WW=0:U3=0 

100 V=AND(3) 

110 COLOR 4:PCLS:LINE(8B,20)-(24 


O 








7, 171), PSET,B 

120 DRAW"BM34,10S4C4":FOR K=1 T 

O 3:DRAW NS (K)+ES+AS (K) +" BR4" :N 
EXT 

140 GoTO 400 

200 FOR T=1l TO 3:I=U 
210 IF(U2=0 AND T=2) 
ND T=3) THEN 280 

220 IF T=2 THEN I=- (U=U2)-2* (U= 
VV)-3*( (U<>U2) AND (U<>VV)) 

230 IF T=3 THEN I=- (U=U3)-2*(U= 
V3)-3* ( (U<>U3) AND (U<>V3)) 

240 FOR J=1 TO Z:A(J, T)=A(J,T)* 
W+HH(I, J):CiJ,T)=C(J,T)*W+IFHCI, 
J)ZH(1,J)+.0] 

250 X(J)=A(J,T)/C(J,T):NEXT 

260 FOR I=1l TO 3:0Q(I,T)=1/3:FOR 
K=1 TO 2:Q(I,T)=Q(I,T)+X(K)*H( 
I,K):NEXT K,I 

280 NEXT:UZ=U:VV=V: IF Us=V THEN 
VV=U+1-3*INT(U/3) 

290 IF U<>V THEN U3=U:VI=V: IF P 
(U3,V3)<0 THEN WW=U3:U3=V3:V3=W 
Ú 

300 X=-1E30:FOR T=1 TO 3:IF(T=2 
AND U2=0) OR (T=3 AND U3=0) TH 
EN 370 

310 ON T GOTO 350,320,340 

320 WW=6-U2-VV:QI=Q(1L,T):02=0(2 
ST) :QI=Q(3,T) :Q(UZ, T)=QL:Q(VV,T 
)=02:0 (WW,T)=03 


330 GOTO 350 

340 WW=6-U3-VI:QL=Q(L,T):02=0(2 
«T):03=0(3, T) :Q(U3, T)=Q1L:0(V3,T 
)=02:0Q(WW,T)=Q3 


OR (U3=0 A 


350 FOR G=1 TO 3:P=0:FOR I=1 TO 
3:P=P+P(G, 1) *Q(I,T) :NEXT:IF P> 

K THEN X=P:V=G 

360 NEXT G 

370 NEXT T 


400 SCREEN 1,0:DRAW"BM1L2,30"+YS 
+55 

410 AS=INKEYS: IF AS<"1" 
3” THREN 410 

420 U=VAL (AS) :DRAW AS (U) +" BM142 
+ JO" +IS+ES+AS (UV) 

430 X=44:Y=90:0N U GOSUB 600,61 
0,620 

435 X=170:0N V GOSUB 700,710,72 
Q 

440 LINE(80,175)-(240,190),PRES 
ET,BF:5=5+P(U,V) : DRAW"BMBO, 180B 
D4RSUZL4UZR4BR8L4D4ARABRAU4RADAN 
L4BR4UV4R4D2L2DFBR9L4AUZNR4UZR4BR 
BBU25B”:GOSUB 800:DRAW" 54" 

450 IF U=V THEN DRAW"BM100,160€C 
3" +DS:GOTO 490 

460 IF(U=3 AND V=2) OR (U2 AND 

V=1) OR (U=1 AND V=3) THEN DRAW 
"BM30,160C3"+YS+WS:GOTO 490 

470 DRBAW"BM160,160C1"+IS+WS 

490 FOR K=1 TO 1000:NEXT:LINE(1 
0,22)-(245,169), PRESET,BF 

500 GOTO 200 

600 PUT(X,Y)-(X+40,7+38),PA,PSE 
T:RETURN 

610 PUT(X,Y)-(X+40,7+38),5C,PSE 
T:RETURBN 

620 PUT(X,Y)-(X+40,Y+38),ST,PSE 
T:RETURN 

700 PUT(X,Y)-(X+40,7+38),PA,AND 
“RETURN 


OR AS2>” 


710 PUT(X,Y)-(X+40,7+38),SC,AND 
: RETURN 

720 PUT(X,Y)-(X+40,Y7+38),ST,AND 
: RETURN 

800 FOR K=1 TO LEN(STRS(S)) 

810 BS=MIDS(STRS(S),K,1):IF B$= 
"=" THEN DRAW"BF2R4BE2”:GOTO 83 
0 


820 IF BS<"0" OR B$S>"9” 
O 

825 DRAW NS (VAL (BS)) 
830 NEXT:RETURN 

1000 FOR I=0 TO 9:READ NS(I):NE 
XT 

1010 DATA NR2D4R2U4BR2, BDEND4BR 
2,R2D2L2D2R2BU4BR2, NR2BD2NR2BD2 
RZ2U4BR2,D2R2D2U4BR2, NR2D2R2D2L2 
BE4, DAR2ZUZL2BE2BR2,RZND4BRZ2, NRZ 
D4R2U2Z2NL2U2ZBR2, NR2D2R2D2U4BR2 
1015 DIM PA(39),8C(39),ST(39) 
1020 DRAW" BMO, 22C3M22, 0M40, 18M2 
0, 38L4MO, 22": PAINT(20,20) 

1030 DRAW"BM32, 20C258H4BH2HBG2F 
4BFF3BL4H2BHH2BL3F2BF2F3BD3H2BH 
JH2” 

1040 GET(0,0)-(40,38),PA,G 

1050 DRAW" BM50, 30C3URURUR5SS4UNR 
6GUSBRIUANEBUE7R2G2DG6LD2LDZFDGL 
GL2ULUEERE2ZL2DBM-3,-2D2G2L2U2" 
1070 DRAW"BM128,6L3IGLCGL2GIDF5RB 
EZUEU3HILU” : PAINT (124,16) 

1080 DRAW"BM128,BC2L3IGLGNLZ2DFRU 
ERERZU”: PAINT(122,10):DRAW"BM13 
4, 14L3GLNG3D2RNF2R4NG2ZEUH” : PAIN 
T(130,18) 

1090 GET(100,0)-(140,38),ST,G 
1100 ES="BR2BDNR3BD2R3BE 3BA” 
1102 AS(1)="NR2D4U2ZR4UZBF4UZNRZ 
UZR4D4ABR4AUZNUZR5SUZNLZ2BRBL4D2NAZ 
D2R4BR3JU4R4D2Z2LDFRBE4” 

1104 AS(2)="BD4R4UZL3UZR4BABLAD 
4R4BR4U4BRBL4D2R3D2LIBR7R4UZLI3U 
2R4BR3ND4RS5SDANL 2BR3UVU4R4D2LDFBAS 
RI3UZL3IUZR4BRZ2” 

1110 AS(3)="BD4R4UZL3IUZR4BRIRIN 
D4R2BR3NR5D4RSU4BR4ND4F3RFU4BF4 
NR4UZNR2UZR5BR3” 

1120 I$="ND4BR6” :Y$="C4F2ND2REZ 
BRID4R4U4 LBEREDARIU4A BRO” 

1130 W5$="D4RERERFRFU4BRAND4BRSN 
D4F 2RF2U4” 

1140 S$="BD4R4U2L3UZR4BRIND4R4D 
2NLD2BR4U4 BR4D4R3EUZHBRO” 

1150 D$="ND4R4D2NLD2BR/U4RZFD2G 
BRSU4R4DZLDFBR4UV4R4D2LF2BR3INU4 E 
RERFRFU4” 

1200 RETURN 


Nas versões para o MSX, o Apple e 
o TK-2000 não há apresentação de 
gráficos. 


na 


6 GOSUB 1000 

7 C=B*XATN(1)/3:NU=0:NV=0Q 
J,A(2,3),P(3,3) 

20 FOR I=1 TO 3 

25 H(I,1)=-COS((1-2)*C):H(I,2) 
=-SIN((I-2) *C) 

27 NEXT I 


THEN 83 


30 FOR T=1 TO 3:FOR J=1 TO 2Z:A( 
J,T)=0:C(J,T)=0.01:NEXT J:NEXT 
sh 

35 LOCATE 0,4 

40 PRINT "FATOR DE ESQUECIMENTO 
A SER USADO” 

45 PRINT:PRINT "VALOR ENTRE O E 
50 PRINT “O = MEMORIA DE 1 JOGO 


APENAS” : PRINT "1 = ESTRATEGIA 
INVARIAVEL”" 


60 PRINT "VALOR SUGERIDO = 0.85 
65 PRINT:PRINT "VALOR ";: INPUT 
W 

67 FOR 1I=4 TO 11:LOCATE 0,1 

68 PRINT ” 

69 NEXT IT 

70 FOR I=1 TO 3:FOR J=1 TO 3 

72 P(I,J)=1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 


THEN P(I,J)=-1 

77 NEXT J:NEXT 1 

BO S=0:U2=0:WW=0:U3=0 
100 V=INT(3*RND(1))+1 
120 LOCATE 3,4:PRINT 
130 LOCATE 20,4:PRINT 
140 GoTo 400 

200 FOR T=1 TO 3:I=U 
210 IF (UZ2=0 AND T=2) OR (U3=0 

AND T=3) THEN 270 

220 IF T=2 THEN I=- (U=U2)-2* (U= 
VV) -3*( (U<>U2) AND (U<>VV)) 

230 IF T=3 THEN I=- (U=U3)-2* (U= 
V3)-3* ( (U<>U3) AND (U<>V3)) 

240 FOR J=1 TO Z:LET A(J,T)=A(J 
«T)*W+H(I,J) 

245 C(J,T)=C(J,T)*W+3*H(1,J)* 
H(I,J)+0.01 

250 LET X(J)=A(J,T)/C(J,T) :NEXT 
J 

260 FOR I=1 TO 3:0(I,T)=1/3:FOR 
K=1 TO 2 

265 QO(I,T)=Q(I, T)+X(K)*H(I,K): 

NEXT K:NEXT I 

270 NEXT T 

280 UZsU:VV=U 

285 IF U=V THEN VV=U+1-3*INT(U/ 
3) 

290 IF U<>2V THEN UJ=U:VI=V: IF P 
(U3,V3)<0 THEN WW=U3:U3=V3:V3=W 

a 

300 X=-9999999:FOR T=1 TO 3 

305 IF (T=2 AND U2=0) OR (T=3 A 

ND U3=0) THEN 370 

310 ON T GOTO 350,320,340 

320 WW=6-UZ-VV:Q1=Q(1,T):02= 

Q(2,T):03=0(3,T) 

325 Q(UZ, T)=01:Q (VV, T)=02:0(WW 
+ T)=03 

330 GOTO 350 

340 WW=6-U3-VI:Q1=0(1,T):02=0( 
2. T):Q3=0(3,7T) 

345 Q(U3, T)=01:Q(V3,T)=02:0 (WW 


"VOCE" 


1 T)=03 

350 FOR G=1 TO 3:P=0:FOR I=1 TO 
3 

355 LET P=P+P(G,I)*Q(I,T) :NEXT 

I 

357 IF P>X THEN X=P:V=G 

360 NEXT G 

370 NEXT T 








400 LOCATE 0,21:PRINT "JOGUE: 1 

=PAPEL 2=TESOURA 3=PEDRA ”; 

410 AS=INKEYS:IF AS<"1” OR AS>” 

3” THEN 410 

420 U=VAL (AS) 

425 LOCATE 3,10:PRINT AS(U) 

430 LOCATE 20,10:PRINT AS(V) 

445 S=S+P(U,V) 

447 LOCATE 12,16:PRINT * 
"1LOCATE 12,16 

450 IF U=V THEN PRINT 

GOTO 490 

460 IF (U=3 AND V=2) OR (U=2 AN 


"EMPATE": 


D V=1) OR (U=1 AND V=3) THEN PR 
INT "VOCE GANHOU |!" :NU=NU+1:GOT 
o 490 
470 PRINT "GANHEI !":NV=NV+1 
490 LOCATE 3,18:PRINT NU:LOCATE 
Z0,18:PRINT NV 
500 GOTO 200 
1000 LET AS(1)="PAPEL ":AS(2)= 
"TESOURA" :AS(3)="PEDRA ” 
1010 CLS 
1020 PRINT "PAPEL - PED 
AA -TESOURA 
1030 PRINT "==========s==== == === 
1040 LOCATE 0,20 
|) PRINT "======="======= 222 


1200 RETURN 


Dto 


6 GOSUB 1000 

7 LET C=B*ATN(1)/3:NU=0:NV=0 

10 DIM H(3,2),%X(2),0(3,3),C(2,3 
J,5A(2,3),P(3,3) 

FOR I=1 TO 3 

LET H(1I,1)=-COS((1I-2)*C):H(I 
12)=-8IN((I-2)*4C) 

NEXT 1 

FOR T=1 TO 3:FOR J=1 TO Z:A( 
J.T)=0:C(J,T)=0.01:NEXT J: 
NEXT T 


20 
25 


27 
30 


35 VTAB 4:HTAB 1 

40 PRINT "FATOR DE ESQUECIMENTO 
A SER USADO” 

45 PRINT:PRINT "VALOR ENTRE O E 
E” 

50 PRINT "O = MEMORIA DE 1 JOGO 
APENAS" :PRINT "1 = ESTRATEGI 


A INVARIAVEL” 


60 PRINT "VALOR SUGERIDO = 0.85 
65 ado PRINT "VALOR ”;: INPUT 

67 rol I=4 TO LI:VTAB 1: HTAB 1 

68 PRINT * 

69 NEXT 1 

70 FOR I=1l TO 3:FOR J=1 TO 3 

72 LET P(I,J)=1.. 

75 IF I-J-3*INT((I-J+1.5)/3)<0 


THEN P(I,J)=-1 

NEXT J:NEXT I 

LET 8=0:U2=0:WW=0:U3=0 

LET V=INT(3*RND(1))+1 

VTAB 4:HTAB 3:PRINT "VOCE" 
VTAB 4:HTAB 20:PRINT "EU" 
GOTO 400 

FOR T=1l TO 3:I=U 

IF (U2Z=0 AND T=2) OR (U3=0 


77 
Bo 
100 
120 
130 





220 
230 
240 
245 
250 
260 
265 
270 
280 
285 
290 
300 
305 


310 
320 


325 


330 
340 


345 
350 
335 
357 
360 
370 
400 
410 
420 
425 
430 
445 
q47 
450 


460 


470 
490 


AND T=3) THEN 270 

IF T=2 THEN I=- (U=U2)-2* (U= 

VV)-3* ( (U<>U2) AND (US2VV)) 

IF T=3 THEN I=- (U=U3)-2* (U= 

V3)-3* ((U<>U3) AND (U<>V3)) 

FOR J=1 TO Z:LET A(J,T)J=A(J 

T)*W+H(I,J) 

LET C(J,T)=C(J,T)*W+3*H(I,J 

J*H(I,J)+0.01 

LET X(J)=A(J,T)/C(J,T) :NEXT 

J 

FOR I=1l TO 3:Q(I,T)=1/3:FOR 

K=1 TO 2 

LET Q(I,T)=O(I,T)+X(K)*HL(I, 

K) :NEXT K:NEXT I 

NEXT T 

LET UZ=U:VV=V 

IF U=V THEN VV=U+1-3*INT(U/ 

3) 

IF U<>V THEN U3=U:V3=V: IF P 

(U3,V3)<0 THEN WW=U3 U3 = 

V3:V3=WW 

LET X=-9999999:FOR T=1 TO 3 

IF (T=2 AND U2=0) OR (T=3 A 

ND U3=0) THEN 370 

ON T GOTO 350,320,340 

LET WW=6-UZ-VU:Q1l=Q(1,T):02 

=0(2,T):03=0(3,T) 

LET Q(U2,T)=Q1I:0(VV,T)=02:0 

(WW, T)=03 

GOTO 350 

LET WW=6-U3-V3:01=0Q(1,T):02 

=0(2,T):03=0(3,T) 

LET O(U3,T)=Q1:0(V3,T)=02:0 

(WW.T)=03 

FOR G=1 TO 3:P=0:FOR 1=1 TO 

3 

LET P=P+P(G, I)*Q(I, 

I 

IF P>X THEN X=P:V=G 

NEXT G 

NEXT T 

VTAB 2Z1:HTAB 1:PRINT"JOGUE: 

1I=PAPEL 2=TESOURA 3=PEDRA”; 

GET AS:IF AS<"1”" OR AS>"3” 

THEN 410 

LET U=VAL (AS) 

VTAB 1O:HTAB 3:PARINT AS(U) 

VTAB 10:HTAB 20:PRINT AS(V) 

LET S=S5+P(U,V) 

VTAB l6:HTAB 12:PRINT ” 
"“UTAB l16:HTAB 12 

IF U=V THEN PRINT "EMPATE": 

GOTO 490 

IF (U=3 AND V=2) OR (U=2 AN 

D V=1) OR (U=1 AND V=3) THEN 

PRINT "VOCE GANHOU !":NU=NU 

+1:GOTO 490 

PRINT "GANHEI !":NV=NV+1 

VTAB 1B:HTAB 3:PRINT NU 

VTAB 1B:HTAB 20:PRINT NV 


T):NEXT 


500 GOTO 200 


1000 


1010 
1020 


1030 


1040 
1050 


1200 


LET AS(1)="PAPEL ":AS(2)= 
"TESOURA” :AS (3) =" PEDRA ” 

HOME 

PRINT "PAPEL - 

RA-TES O U R a” 


PED 


VTAB 20: HTAB 1 
PRINT "============2=32E55 


RETUAN 


SOMA CUMULATIVA 


Soma cumulativa é a técnica usada 
para analisar o desempenho do oponen- 
te num período de tempo em que se re- 
gistram mudanças bruscas de respostas. 

Os gráficos empregados pelo progra- 
ma são iguais aos do programa anterior 
(apenas nas versões para o TRS-Color 
e Spectrum. Nas versões para o MSX, 
Apple e TK-2000, a parte comum entre 
os dois programas se refere à apresen- 
tação dos resultados). Assim, as linhas 
de programa correspondentes à seção re- 
lativa à apresentação dos resultados não 
mudam, devendo ser incorporadas ao 
novo programa como estão. 

Como no programa anterior, O joga- 
dor deve entrar uma informação que re- 
gula a tática do computador (um núme- 
ro entre 1 e 9999). 


Use as linhas 520 a 610 do programa 
anterior e acrescente estas: 





5 CLEAR 31999: GOSUB 500: 


BORDER O: PAPER O: INK 7: 
CLS 
7 DIM AS(3,9): LET AS(1)="PE 


DRA”: LET AS(2)="PAPEL”: LET 
AS (3) =" TESOURA” 

10 DIM B(3): DIM U(3): DIM S( 
3): DIM H(3,2): DIM X(3): DIM 

Q(3): DIM P(3,3): DIM M(3) 

15 LET MM=60: DIM A(3,MM): 

DIM Z(MM) 

20 FOR I=1 TO 3: LET H(1I,1)=- 

cos ((I-2)*PI*2/3): LET H(I,2 
)J=-SIN ((1-2)*P1*2/3): NEXT 1 
30 LET M(1)=1: LET M(2)=0: 
LET M(3)=0 

40 INPUT "DIGITE RAZAO DE SEM 
ELHANCA PARA CADA JOGADA (1 A 


9999), 1=NOVA ESTRATEGIA PA 
RA CADA JOGADA, 9999=MESMA 
ESTRATEGIA. ";W 


70 FOR 1I=1 TO 3: FOR J=1 TO 3 
: LET P(I,J)=SGN (I-J-3*INT ( 
(1-J+1.5)/3)): NEXT J: NEXT 1 
: LET 8=0 
BO LET NN=0: LET U=1: LET 5=0 
* LET U2=0: LET WW=0: LET U3=0 
100 LET V=INT (RND*3)+1 
110 PRINT INK 6; PAPER 2;" 1 
=PEDRA, 2Z=PAPEL, 3=TESOURA ” 
120 INK 6: PLOT 8,167: DRAW 
239,0: DBAW 0,-159: DRAW -239, 
O: DRAW 0,159 
130 GOTO 400 
200 LET Y=-1E30: LET Z=-1E30: 
FOR T=1l TO 3: LET I=U: IF T=1 
THEN GOTO 230 
210 IF (U2=0 AND T=2) OR (U3=0 
AND T=3) THEN GOTO 264 
Z20 IF T=2 THEN LET I=ABS ((U 
=U2)-2* (U=VV)-3* ((U<>2U2) AND ( 
U<>VV))) 





107 


Se 
E 
5 
a 
S 








230 IF T=3 THEN LET I=ABS ((U 
=U3)-2* (U=V3)-3* ( (U<>U3) AND ( 
U<>V3))) 

240 LET A(T,M(T))=I 

250 FOR J=1 TO 3: LET B(J)=o0: 
NEXT J: LET N=0: LET N2=M(1) 
252 FOR M=M(T) TO 1 STEP -1: 
LET B(A(T,M))=B(A(T,M))J+1: LET 
N=N+1: LET N2=N2-1 

256 FOR J=1 TO 3: LET Q(J)=B(J 
J/N: LET X(J)=0(J)+(0(J)=0): 
NEXT J 

258 LET Q=B(1)*LN (X(1))+B(2)* 
LN (X(2))+B(3)*LN (X(3)): IF 
NN>1 AND N2<>0 THEN LET Q=0+2 
(N2) 


260 IF Q>Z THEN LET Z=Q: LET 
S(1)=Q(1): LET S(2)=Q(2): LET 
s(3)=Q(3): LET SS=T: LET NN=NZ2 
262 NEXT M: IF Q>Y THEN LET 7 
=0: LET TT=T: LET U(1)=Q(l): 
LET U(1l)=0(2): LET U(3)=Q(3) 
264 NEXT T: LET T=TT: LET Z(M( 


1))=Y: LET Q(l)=U(1): LET Q(2) 
=U(2): LET Q(3)=U(3) 
270 LET UZ=U: LET VV=V: IF UZ2= 


UV THEN LET VV=UZ+1-3*INT (UZ 


!3) 
272 IF U<>V THEN LET U3=U: 
LET V3=V: IF P(U3,V3)<0 THEN 


LET WW=U3: LET U3=V3:; LET V3= 
WW 

274 LET M(1l)=M(1)+1: LET M(2)= 
M(2)+(U2>0): LET M(3)=M(3)=(U3 
20) 

280 IF Q>Z-LN (W) THEN GOTO 
300 

282 FOR T=1l TO 3: FOR M=NN+I1 
TO MIT): LET A(T.M-NN)=A(T,M): 
NEXT M 

284 LET M(T)=(NN-M(T)J*(-1*(CIM 
(T)>NN))): NEXT T 

286 LET T=TT: LET Q(1I)=S(1): 
LET Q(2)=S(2): LET Q(3)-S(3) 
290 FOR M=1 TO M(1)-1: LET Z(M 
)=-1E30: NEXT M: LET Z(M(1))-Q 
300 LET X=-1E30 


310 IF T=1 THEN GOTO 350 
311 IF T=2 THEN GOTO 320 
312 IF T=3 THEN GOTO 340 


320 LET WW=6-U2-VV: LET QI=Q(I 
J: LET 02=0(2): LET Q3=0(3): 
LET Q(U2)=Q1l: LET Q(VV)=QO2: 
LET Q(WW)=03 

330 GOTO 350 

340 LET WW=6-U3-V3: LET Ql=Q(1 
)J: LET 02=0(2): LET Q3=0(3): 
LET Q(U3)=Ql: LET Q(V3)=02: 
LET Q(WNW)=03 

350 FOR 6G=1 TO 3: 


LET P=0: FOR 


I=1 TO 3: LET P=P+P(G,1)*Q(I): 
NEXT I: IF P>X THEN LET X=P: 
LET V=6 

360 NEXT 6 

400 INK 7: PRINT AT 2,4;"VOCÊ 
DISSE ” 


405 FOR M=-3 TO 16: SOUND .01, 
M: NEXT M 

410 LET KS=INKEYS: IF KS="" 
THEN GOTO 410 

412 IF K$<"1” OR KS$>"3” THEN 
GOTO 410 


415 LET U=VAL KS 

420 PRINT AT 3,4;AS(UJ;AT 2,21 
- INK 5;"EU DISSE ";AT 3,21:AS 
(V) 

430 POKE 23681,U-1: LET O=USR 
32000: POKE 23681,127+V: LET O 

=USR 32000 

440 LET S=S+P(U,V): PRINT AT 

16,8;"SEU PLACAR E ";S;" * 

450 INVERSE 1: IF V=U THEN 

PRINT AT 18,10;" UM EMPATE Rs 

GOTO 490 

460 IF (U=3 AND V=2) OR (U=2 

AND V=1) OR (U=1 AND V=3) THEN 
PRINT AT 18,10;" VOCÊ VENCEU 
". GOTO 490 

470 PRINT AT 18,10;” EU VENCI 


490 INVERSE O: FOR D=1 TO 4: 
PAUSE O: NEXT D: FOR N=2 TO 18 
: PRINT PAPER O; INK Z;AT N,2 


* NEXT N: GOTO 200 

500 FOR N=32000 TO 32284: READ 
A: POKE N,A: NEXT N 

505 LET N=32069: POKE 23728,N- 
256*INT (N/256): POKE 23729, 
INT (N/256) 

510 RETURN 





Apague o programa anterior até a li- 
nha 435 e digite: 


5 CLEAR 1000:PMODE 3,1:COLOR 4, 
2: PCLS 

6 GOSUB 1000 

7 C=B*ATN(1)/3 

10 DIM B(3),U(3),5(3),H(3,2),X( 
3),0(3),P(3,3),M(3) 

15 MM=60:DIM A(3,MM),Z (MM) 

20 FOR I=1 TO 3:H(1I,1)=-COS((I- 
2)*C):H(I,2)=-SIN((I-2)*C) :NEXT 
30 M(1)=1 

40 CLS: INPUT"DIGITE RAZAO DE SE 
MELHANCA PARA CADA JOGADA (1 A 


9999),  I=NOVA ESTRATEGIA PARA 
CADA JOGADA , 9999=MESMA ESTR 
ATEGIA. "iW 


70 FOR I=1l TO 3:FOR J=1 TO 3:P( 
1, J)=SGN(I-J-3*INT((I-J+1.5)/3) 
J:NEXT J,I 

B0 U=1 

100 V=RND(3) 

110 COLOR 4:PCLS:LINE(8,20)-(24 
7,171), PSET,B 

120 DRAW"BM34,105S4C4":FOR K=1 T 
O 3:DRAW NS (K) +ES+AS (K)+"BR4" :N 
EXT 

140 GoTo 400 

200 Y=-1E30:Z=-1E30:FOR T=1 TO 
3:I=U:IF T=1 THEN 230 

210 TF(U2Z=0 AND T=2)0R(U3=0 AND 
T=3) THEN 264 

220 IF T=2 THEN I=- (U=U2)-2* (U= 

VV) -3* ( (U<>U2) AND (U<>VV)) 

230 IF T=3 THEN I=- (U=U3)-2* (U= 

V3)-3* ( (U<>U3) AND (U<>V3)) 

240 A(T,M(T))=1 

250 FOR J=1 TO 3:B(J)=0:NEXT:N= 
O:N2=M(1) 


252 FOR M=M(T) TO 1 STEP -1:BlA 
(TM) )=B(A(T,M))+1L:N=N+1:NZ=NZ- 


1 

256 FOR J=1 TO 3:0(J)=B(J)/N:X( 
J)=0(J)-(0(J)=0) NEXT 

258 Q=B(1)*LOG(X(1))+B(2)*LOGIX 
(2))+B(3) *LOG(X(3)) : IF NN>O THE 
N 0=0+Z (N2) 

260 IF 0Q>Z THEN Z=Q:S(1)=Q(1):5 
(2)=0(2):5(3)=Q(3) :SS=T:NN=N2 
262 NEXT M:IF Q>Y THEN Y=Q:TT=T 
“U(1I)=0(1):U(2)=Q(2):U(3)=0(3) 
264 NEXT T:T=TT:Z(M(1))=T:Q(1l)= 
U(1):0(2)=U(2):0(3)=U(3) 

270 UZ=U:VV=V: IF UZ>VV THEN VV= 
U2+1-3*INT (U2/3) 

272 IF U<>V THEN U3=U:V3I=V: IF P 
(U3,V3)<0 THEN WW=U3:U3=V3:V3=W 


Ww 
274 M(1)=M(1)+1:M(2)=M(2) = (U2>0 
) :M(3) =M(3) — (U3>0) 


280 IF Q>Z-LOG(W) THEN 300 

282 FOR T*1l TO 3:FOR M=NN+1 TO 

MCT) :A(CT.M-NN)=A(T,M) :NEXT 

284 M(T)=(NN-=MT)*(M(T)>NN) :NEXT 
286 T=TT:Q(1)=S(1):0(2)=5(2):0( 
3)=5(3) 

290 FOR M=1 TO M(1)-1:Z(M)=-1ES 
O:NEXT:Z(M(1))=0 

300 X=-1E30 

310 ON T GOTO 350,320,340 

320 wWW=6-UZ-VV:Q1l=Q(1):02=0(2): 

03=0(3):0Q(U2Z)=01:0 (VV) =02:0 (WW) 

=03 

330 GOTO 350 

340 WW=6-U3-V3:Ql=Q(1):02=0(2): 

23=0(3):0(U3)=01:0(V3)=02:0 (WW) 

=03 

350 FOR G=1 TO 3:P=0:FOR 1=1 TO 
3:P=P+P(G,I)*Q(I) :NEXT:IF P>2& 

THEN X=P:V=6 

360 NEXT 

400 SCREEN 1,0:DRAW"BM12,30"+Y5 

+58 

410 AS=INKEYS:IF AS$<"1" OR AS>” 
3” THEN 410 

420 U=VAL (AS) :DRAW AS (U) +" BM142 
| 30" +IS+SES+AS (UV) 

430 X=d4:Y=90:0N U GOSUB 600,61 
0,620 

435 X=170:0N V GOSUB 700,710,72 
| 


o 


Apague o programa anterior até a li- 
nha 390 e digite: 


6 GOSUB 1000 

7 C=B*ATN(1)/3:NU=0:NV=0 

10 DIM B(3),U(3),8(3),H(3,2),X( 
3),2(3),P(3,3),MC5) 

15 MM=60:DIM A(3,MM),Z (MM) 

20 FOR I=1 TO 3 

25 H(I,1)=-COS((I-2)*C):H(I,2) 
=-SIN((I-2)*C) 

27 NEXT 1 

30 M(1) 24 

35 LOCATE 0,4 

40 PRINT "FATOR DE VEROSSIMILHA 
NÇA” 


45 PRINT:PRINT "VALOR ENTRE 1 E 








9999 :" 

50 PRINT “1 = NOVA 
ARA CADA JOGO" : PRINT 
SMA ESTRATÉGIA” 


ESTRATÉGIA P 
"9999 = ME 


65 PRINT:PRINT "VALOR ";: INPUT 
W 

67 FOR I=4 TO 1O:LOCATE 0,1 

6B PRINT ” 

69 NEXT I 


70 FOR I=1l TO 3:FOR J=1 TO 3 
72 P(I,J)=l1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 
THEN P(I,J)=-1 

77 NEXT J:NEXT TI 

BO U=l 

100 V=INT(3*RND(1))+1 
120 LOCATE 3,4:PRINT 
130 LOCATE 20,4:PRINT 
140 GoToO 400 

200 Y=-99999:FOR T=1 TO 3:1=U 
205 IF T=1 THEN 230 

210 IF (U2Z2=0 AND T=2) OR (U3=0 
AND T=3) THEN 264 

220 1F T=2 THEN I=- (U=U2)-2* (U= 
VV) -3*( (U<>UZ) AND (U<>VV)) 

230 IF T=3 THEN I=- (U=U3)-2*(U= 
V3)-3*( (U<>U3) AND (U<>V3)) 

240 A(T,M(T))=I 

250 FOR J=1 TO 3:B(J)=0:NEKT J: 
N=0:N2=M(1) 

252 FOR M=M(T) TO 1 STEP -1 

254 B(A(T,M))=B(A(T,M))+1:N=N+1 
“N2=N2-1 

256 FOR J=1 TO 3:0(J)=B(J)/N:X( 

J)=0(])-(Q(J)=0) :NEXT J 

258 A=B(1)*LOG(X(1))+B(2)*LOG(X 
(2))+B (3) *LOG(X(3)) 

259 IF NN>0 THEN Q=0+Z (N2) 

260 IF Q>Z THEN Z=Q:S(1)=Q(1):S 
(2)=02:5(3)=03:588=T:NN=N2 

262 NEXT M 

263 IF Q0>Y THEN T=O:TT=T:U(1)=Q 
(1) :U(2)=0(2) :U(3)=0(3) 

264 NEXT T 

265 T=TT:Z(M(1))=T:Q(1)=U(1): 
O(2)=U(2):0(3)=U(3) 

270 UZ=U:VV=V: IF UZ>UVV THEN 
VV=U2+1-3*INT(U2/3) 

272 IF U<>V THEN U3=U:VI=V: IF P 
(U3,V3)<0 THEN WW=U3:U3=V3:VI=W 

W 


"VOCE" 
"Eu" 


274 M(1L)=M(1I)+1:LET M(2)=M(2)-( 
U2>0):M(3)=M(3)-(U3>0) 

2B0 IF 0Q>2Z2-LOG(W) THEN 300 

282 FOR T=1 TO 3:FOR M=NN+1 TO 
M(T) 

283 A(T,M-NN)=A(T,M) :NEXT M 
284 M(T)=(NN-MT)*(M(T) >NN): 
NEXT T 

2B6 T=TT:Q(l)=S(1):0(2)=5S(2): 
Q(3)=5(3) 

290 FOR M=1 TO M(1)-1:Z(M)= 
-99999:NEXT M 

295 Z(M(1))=Q 

300 X=-99999 

310 ON T GOTO 350,320,340 

320 WW=6-UZ-VV:Ql=Q(1):02=0(2): 
03=0(3) 

3125 Q(U2)=01:0 (VV) =02:0(WW) =03 
330 GOTO 350 

340 WW=6-U3-V3:01=0(1):02=0(2): 
023=0(3) 


345 
350 
3 
355 


Q(U3)=01:0(V3)=02:0(WW) =03 
FOR G=1 TO 3:P=0:FOR I=1 TO 


P=P+P(G,I)*Q(I):NEXT 1 
357 IF P>X THEN X=P:V=G 
360 NEXT G 


Lab Lc] 


“Apague o programa anterior até a li- 
nha 390 e digite: 


6 GOSUB 1000 

7 LET C=8*ATN(1)/3:NU=0:NV=0 

10 DIM B(3),U(3),5(3),H(3,2),X( 
3),0(3),P(3,3),M(3) 

15 LET MM=60:DIM A(3,MM),Z (MM) 

20 FOR I=1 TO 3 

25 LET H(I,1)=-COS((I-2)*C) :H(I 
,2)=-SIN((1-2)*C) 

27 NEXT I 

30 LET M(1)=1 

35 VTAB 4:HTAB 1 

40 PRINT "FATOR DE VEROSSIMILHA 

NCA" 

PRINT: PRINT 

9999 :* 

PRINT “1 = NOVA ESTRATEGIA P 

ARA CADA JOGO” :PRINT "9999 = 

MESMA ESTRATEGIA” 


ds "VALOR ENTRE 1 E 


50 


65 PRINT:PRINT "VALOR ";: INPUT 
Ww 

67 FOR I=4 TO 1LO:VTAB I:HTAB 1 

68 PRINT ” 

69 NEXT I 

70 FOR 1=1 TO 3:FOR J=1 TO 3 


72 LET P(I,J)=l1 

75 IF I-J-3*INT((I-J+1.5)/3)<0 
THEN P(I,J)j=-1 

77 NEXT J:NEXT I 

BO LET U=1 

100 LET .V=INT(3*RND(1))+1 

120 VTAB 4:HTAB 3:PRINT "VOCE" 

130 VTAB 4:HTAB 20:PRINT "EU" 

140 GOTO 400 

200 LET Y=-99999:FOR T=1 TO 3:1I 

=[) 

IF T=l THEN 230 

IF (UZ=0 AND T=2) OR (U3=0 

AND T=3) THEN 264 

IF T=2 THEN I=- (U=U2)-2*(U= 

VV) -3* ((U<>U2) AND (U<>VV)) 

IF T=3 THEN I=-(U=U3)-2*(U= 

V3)-3* ((U<>U3) AND (U<>V3)) 

LET A(T,M(T))=I 

FOR J=1 TO 3:B(J)=0:NEXT J: 

N=0:N2=M(1) 

FOR M=M(T) TO 1 STEP -1 

LET B(A(T,M) )=B(A(T,M))+L:N 

=N+1:N2=N2-1 

FOR J=1 TO 3:0(J)=B(J)/N:X( 

J)=0(J)-(0(J)=0):NEXT J 

LET A=B(1)*LOG(X(1))+B(2)*L 

0G(X(2))+B(3)*LOGC(X(3)) 

IF NN>0 THEN 0=0+Z (N2) 

IF 0>Z THEN Z=0:S(1)=Q(1):5S 

(2)=02:8(3)=03:88=T:NN=N2 

NEXT M 

IF Q>Y THEN YT=Q:TT=T:U(1)=Q 

(1) :U(2)=0(2):U(3)=0(3) 

NEXT T 


205 
210 


220 
230 


240 
250 


252 
254 


256 
258 


259 
260 


262 
263 


264 


| mente de estratégia. Os resultados, 





COMO ENGANAR O COMPUTADOR 

Se você não quiser ser derrotado pe- 
lo computador, precisará lançar mão de 
uma estratégia que neutralize ao má- 
ximo o método de análise utilizado no 
programa. A melhor alternativa, nesse 
caso, é empregar um processo absolu- 
tamente aleatório em suas jogadas. Pa- 
ra isso, rode um pequeno programa de 
sorteio de três números no seu micro, 
e imprima (ou então copie à mão) uma 
longa sequência de jogadas. Seguindo- 
a à risca, o computador não terá nenhu- 
ma chance de prever suas jogadas. Em 
compensação, você também não con- 
seguirá prever as jogadas do com- 
putador! 

Outra técnica para enganar o com- 
putador consiste em mudar continua- 


aqui, dependerão do programa que vo- 
cê estiver usando. Veja como o com- 
putador “enlouquece”... 


265 LET T=TT:Z(M(1))=Y:Q(1)=U(I 
)J:0(2)=U(2) :Q(3)=U(3) 

LET UZ=U:VV=V: IF UZ>2VV THEN 
VV=U2+1-3*INT (U2/3) 

IF U<>V THEN U3=U:VI3=V: IF P 
(U3,V3)<0 THEN WW=U3:U3=V3: 

V3=WW 


270 


272 


2/4 LET MIL)=M(L)+I:LET MCZ)=M( 
2) - (U2>0) :M(3) =M(3) - (U3>0) 

280 IF Q>Z2-LOG(W) THEN 300 

282 FOR T=1 TO 3:FOR M=NN+1 TO 
M(T) 

283 LET A(T,M-NN)=A(T,M) :NEXT M 

284 LET M(T)=(NN-MT)* (MCT) 2NN): 
NEXT T 

ZB6 LET T=TT:Q(1)=S(1):0(2)=5(2 
1J:0(3)=5(3) 

290 FOR M=1 TO M(1)-1:LET Z(M)= 
-99999:NEXT M 

295 LET Z(M(1))=0 

300 LET X=-99999 

310 ON T GOTO 350,320,340 

320 LET WW=6-U2-VV:01=Q(1):02=0 
(2) :03=0(3) | 

325 LET Q(U2Z)=Q1:Q(VV)=02:0(WW) 
=093 

330 GOTO 350 

340 LET WW=6-U3-VI:01=0(1):02=0 
(2) :03=0(3) 

345 LET 0Q(U3)=01:0(V3)=02:0(WW) 
=03 : 

350 FOR G=1 TO 3:P=0:FOR 1I=1 TO 
3 

355 LET P=P+P(G, 1I)*Q(I):NEXT IT 

357 IF P>X THEN X=P:V=G 

360 NEXT G 
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A MATEMÁTICA DA 








IRREGULARIDADE (1) 


Qual é o comprimento de um peda- 
ço de corda? A resposta é muito fácil se 
a corda estiver esticada, pois bastará 
medi-la com uma fita métrica. Caso 
contrário, a tarefa será um pouco mais 
trabalhosa, pois teremos que medir um 
objeto irregular. 

| evidente que, para obter as medi- 
das de um objeto irregular, procurare- 
mos estendê-lo, de modo a simplificar 
o trabalho. Porém, nem todas as coisas 
são suficientemente maleáveis para se 
fazer isso. Como agir então? 

Tomemos como exemplo uma encos- 
ta rochosa com 5 km de extensão. Essa 
medida equivale ao percurso de uma gai- 
vota que voa de uma ponta à outra ou 
à distância que você realmente andaria 
seguindo a linha do mar? Há uma dife- 
rença considerável entre os dois trajetos, 


sendo que a rota que acompanha todas 
as irregularidades é bem maior que a do 
vôo retilineo do pássaro. 

Mas qual é essa diferença? Suponha- 
mos que temos uma trena bem flexivel, 
capaz de se ajustar a todos os porme- 
nores do terreno. Inicialmente, vamos 
nos ater aos grandes acidentes, como a 
foz de um rio ou uma baia. Mas, em 
busca de maior rigor, passaremos a con- 
siderar cada rocha que se projeta ao 
mar, tornando a costa irregular, e, de- 
pois, cada pedra à beira d'água. Por 
fim, levaremos em conta até os grãos de 
areia: se você os observar em detalhe, 
verá que também são irregulares e me- 
recem uma boa inspeção. 

Isso parece um exercício absurdo — 
afinal, ninguém precisa de uma medida 
desse tipo com tamanha precisão. Mas, 





AI 


Use seu micro na exploração das formas 
mais fascinantes da geometria de 
dimensões fracionadas, um instrumento 
da matemática que ajuda a explicar as 
irregularidades observadas na natureza. 


por meio do exemplo dado, pudemos 
constatar algo importante: a exatidão da 
medida de uma superficie irregular de- 
pende do tamanho do instrumento de 
medida de que dispomos. 

A ciência tradicional trabalha com 
modelos de curvas e superfícies lisas. A 
medida que as olhamos mais de perto, 
mais elas adquirem a forma plana — do 
mesmo modo que a superfície da terra 
é aproximadamente esférica e nós a per- 
cebemos como sendo chata. 

Porém, como ficou claro no exemplo 
da costa rochosa, alguns objetos não se 
mostram planos nem quando examina- 
dos de muito perto. E existem muitos 
outros exemplos na natureza de confi- 
gurações que possuem detalhes diferen- 
tes em cada dimensão de sua estrutura. 
Porém, apenas recentemente os cientis- 
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E] FIGURAS GEOMÉTRICAS 
Ee | MEDIÇÃO 
E AUTO-SEMELHANÇA 
é DIMENSÕES FRACIONADAS 

c GRÁFICOS 


tas e matemáticos tomaram consciência 
da importância do estudo desses obje- 
tos e criaram modelos para suas estru- 
turas — uma série de figuras geométri- 
cas denominadas figuras de dimensões 
fracionadas, ou fractais. 

Um dos primeiros pesquisadores a 
estudá-las foi o norte-americano Benoit 
Mandelbrot que reconheceu nessas figu- 
ras um fecundo campo de trabalho, 
muito apropriado à concepção de mo- 
delos para objetos naturais irregulares. 


MEDINDO UM OBJETO 

Se você tomar dois pedaços de corda 
do mesmo tamanho e uni-los por uma 
das pontas, poderá dizer que obteve 
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uma cópia do pedaço original com o do- 
bro do tamanho. No caso de uma folha 
de papel, porém, serão necessárias ou- 
tras três folhas para se obter uma com 
o formato da original mas com o dobro 
da extensão; com uma barra de rapadu- 
ra, você irá precisar de mais sete cubos. 

Os números 2, 4e 8 são parte de uma 
sequência formada por meio da multi- 
plicação do 2 por ele mesmo diversas ve- 
zes — 2, 2x2 e 2x2x2, ou 211, 212 e 213. 
A potência à qual está elevado o 2 equi- 
vale à dimensão do objeto. 

Como vimos, para alcançar o dobro 
de seu tamanho, um objeto unidimen- 
sional (a corda) tem que ser multiplica- 
do por dois; um objeto bidimensional 
(a folha) deve ser multiplicado por qua- 
tro e assim por diante. Suponhamos 
agora que, para duplicar o tamanho de 
certo objeto, sejam necessários três 
exemplares idênticos. Como esse núme- 
ro está entre dois (equivalente a uma di- 
mensão) e quatro (correspondente a 
duas dimensões), deduzimos que a di- 
mensão do objeto está entre 1 e 2. 

À primeira vista, tal situação parece 
improvável — embora correta, em ter- 
mos lógicos. Mas o estudo das dimen- 
sões fracionadas pode mesmo nos levar 
a resultados surpreendentes. 

O matemático alemão Von Koch foi 
um dos primeiros estudiosos a desenhar 
um diagrama representando esse tipo de 
ocorrência: trata-se da chamada curva 
floco de neve (muito semelhante a um 
floco de neve visto ao microscópio). Ca- 
da um dos lados dessa curva é formado 
por quatro cópias dela mesma, com um 
terço do seu tamanho. A dimensão, nes- 
se caso, é um pouco acima de 1,26. Vá- 
rias formas da natureza, como a própria 
costa rochosa, podem ser vistas como 
uma figura dessas. 

Como todos os modelos matemáti- 
cos, a curva de dimensão fracionada — 
de definição muito precisa — não é ca- 
paz de descrever com perfeição a gran- 
de diversidade de objetos naturais, 
limitando-se a uma aproximação. É, po- 
rém, muito útil na explicação de diferen- 
tes estruturas — de veias do corpo hu- 
mano a montanhas, rios ou árvores. 


AUTO-SEMELHANÇA 





Voltemos um pouco ao exemplo da 
corda, do papel e da rapadura. Cada um 
desses objetos poderia ser formado por 
várias cópias menores idênticas. Estaria- 
mos então diante de um caso de auto- 
semelhança, onde cada parte do objeto 
é uma cópia menor do original. 
As figuras criadas por Von Koch 
| constituem uma aplicação muito rígida 





desse princípio, o que explica a extrema 
regularidade de sua forma. Os exempla- 
res naturais não apresentam necessaria- 
mente auto-semelhança — é fácil cons- 
tatar que um pedaço da casca de uma 
árvore, por exemplo, não é uma peque- 
na cópia da casca inteira. Entretanto, ele 
poderia estar em alguma outra parte da 
casca, pois todos os pedaços se parecem 
muito. Esse fenômeno, denominado 
auto-semelhança estatística, é muito co- 
mum na natureza, 


DIMENSÕES FRACIONADAS E GRÁFICOS 





Como tantos modelos matemáticos, 
esse tipo de curva pode ser programado 
em seu micro para simular a realidade, 
evidenciando algumas de suas caracte- 
rísticas. No estudo dos fractais, especi- 
ficamente, a computação gráfica tem si- 
do amplamente utilizada, oferecendo a 
solução ideal para o problema da gera- 


ção de figuras irregulares, tais como 
montanhas, mares e uma série de outros 
elementos da natureza, 

A recursão constitui um excelente 
meio para a aplicação do princípio da 
auto-semelhança que envolve a constru- 
ção de uma figura através de figuras 
idênticas menores. No caso, uma sub- 
rotina principal se encarregará de dese- 
nhar os vários elementos idênticos em 
diferentes tamanhos. 

Se você quiser obter uma curva seme- 
lhante à curva floco de neve bastará es- 
colher uma figura bem simples e repeti- 
la várias vezes, em diversas escalas, adi- 
cionando mais e mais detalhes a cada ni- 
vel de tamanho. Experimente, por exem- 
plo, tomar uma reta e aplicar a regra que 
prescreve: “toda linha reta deve ser 
substituída por um par de retas em ân- 
gulo reto””. 

Se você tentar fazer isso em uma fo- 
lha de papel, verá que a cada passo mais 
detalhes são introduzidos no desenho. 
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temos 
PAPER 
LET wy 


OVER Llix, 


LET x=70: 


em, como não 
PI/2 


BRIGHT 1: 


CLS 
INVERSE 1; 
1000 


LET an 


INK 7: 
30 LET c=PI/180 


40 LET 1=120: 


10 BORDER O: 
=5 0: 


Õ: 

20 LET mn=2 
45 PLOT 

Y 

50 GOSUB 

80 STOP 


forme o modelo de dimensão fraciona- 
da, nosso desenho poderia se estender 
uma capacidade gráfica muito grande, 
os detalhes nos passariam despercebi- 
dos, da mesma maneira que as irregu- 
laridades de um grão de areia. Portan- 
to, o programa irá parar assim que al- 


cançar um certo nível de recursão. 


O programa que apresentamos a seguir 
faz uma demonstração desse processo. 
Como todos os gráficos elaborados con- 


infinitamente. Por 














| | | 


tam o número de níveis de recursão e, 
em consequência, o tempo de execução. 
Mas, se introduzirmos valores maiores, 
o programa será acelerado e poderemos 
visualizar melhor o processo de elabo- 
ração do gráfico. 

Se você acompanhar o desenvolvi- 
mento da figura na tela com atenção, ve- 
rificará que cada parte da curva se pa- 
rece com a própria curva (principio da 
auto-semelhança). Apesar disso, não é 
fácil antever, logo no início, a forma 
que ela irá adquirir. 





CURVA DO DRAGÃO 


Quando trabalhamos com curvas de 
dimensão fracionada, poucas linhas de 
programa são necessárias para produzir 
uma bela figura — sobretudo se utilizar- 
mos a recursão. Digite e execute o pró- 
ximo programa para obter uma curva 
em forma de dragão. 

No programa anterior, cada reta era 
substituída por um par de retas perpen- 
diculares, traçadas sempre em uma mes- 
ma direção. Neste programa, porém, 
pares de retas são colocados alternada- 
mente de um e de outro lado de cada re- 
ta, até formar a figura final. 


10 BORDER O: PAPER O: INK 7: 
CLS : CLEAR 30000: LET S= 
32767: DEF EN A(X)=(X/B-INT ( 
Xx/8))*8 

20 LET MN=1: LET A=0 

30 LET C=ATN (1)/45: DIM S(10 
): DIM C(10) 


40 FOR I=1 TO B: LET S(1)=SIN 


A 

50 LET C(I)=COS A: LET As=A+PI 
fá: NERT I 

60 LET L=12B8: LET X=52: LET + 
=80: LET T=-1: POKE S,T+1: 
LET S=5-1 

65 DRAW  INVERSE 1; OVER 1;X- 


PEEK 23677,Y-PEEK 23678 

70 GOSUB 1000 

80 STOP 
1000 LET L=L/1.414 
1010 IF L<MN THEN LET L=L*1.41 
4: LET XK=X+(L*C(1)): LET F=Y-(L 
*S(1)): DRAW X-PEEK 2367/,Y-PEE 
K 23678: RETURN 


1020 LET I=FN A(I+T): POKE S,T+ 
1: LET 8=58-l: LET T=1: GOSUB 10 
00: LET S5=S+1l: LET T=(PEEK 5)-1 


1030 LET I=EN A(I-2Z*T): POKRE 5, 
T+l: LET S=S-1: LET T=-1: GOSUB 
1000 


LET T=(PEEK 5)- 
LET L=L*1.4 


1040 LET 5=5+1: 
1: LET I=EN A(I+HT): 
14: RETURN 


10 PMODE 4:PCLS:SCREEN 1,1:CLEA 


R 200,30000:98=32767 

20 MN=1 

30 C=ATN(1)/45:PI=4*ATN(1) 

40 FOR 1=0 TO 7:S(I)=SIN(A) 

50 C(I)j=COS(A) :AsSA+PI/4:NEXT 

60 L=128:X=52:Y=BO0:T=-1:POKE 5, 
T+1:5=S-1 

65 LINE -(X,Y), PRESET 

70 GOSUB 1000 

BO GOTO BO 

1000 L=L/1.414 

1010 IF L<MN THEN L=L*1.414:X=X 
+(LXC(I)):Y=Y-(L*(S(1)):LINE-(X 
+ Y), PSET:RETURBN 

1020 I=(I+T) AND 7:POKE S,T+1:S 
=S-1:T=1:GOSUB 1000:5=S+1:T=PEE 
K(S)-1 

1030 I=(I-2*T)JAND?:POKE S,T+1:5 
=5-]:T=-1:GOSUB 1000 

1040 S=5+1:T=PEEK(S)-1l:I=(I+T) 
AND 7:L=L*1.414:RETURN 


[é] 


10 85 = 900 

20 HGR2 :MN=1 
30 € = ATN (1) 
ATN (1) 

40 FOR I = OTOTZ:S(T) 
(A) 

50 C(I) = 
d: NEXT 
60 L = 128:X4 = 52:73 = B0:T = = 

1: POKE 8,T + 1:55 = 5-1 
55  HCOLOR= 3: HPLOT X,Y TO X,Y 


“ 
Es 
* 


! 45:PI 


SIN 


Cos (A)J:A = A + PT / 


70 GOSUB 1000 

BO GOTO 80 

1000 L = L/ 1.414 

1010 IF L << MNTDENIL SL 

qa =NXA+ (LTr C(I)):Y = 
(L * S(1)): HPLOT TO X,7Y: 

RN 

21020 1 = [(1I*+T)-8B* INTAL 
L+HIT) *Z 8)): POKE ST + 145.8 

Ss -1:T = 1: GÓSUB 1000:5 = 5 + 
1ºT = PEEK (8) - À 

I030 ET = ((i=2ZNT) cam AM 

Tititi 2% 8) PORB ST 

+ LB =S8=-1"'T= -I GOSBUBL 
000 

1040 5 = 5 + 1:T = PEER (5) - 
IJ: = (t+ T) AND TZ) <= *a 
.414: RETUBN 


a 


10 SCREEN 2:CLEAR 200,50000!:5= 
527671 

20 MN=1 

30 C=ATN(1)/45:PI=4*ATN(1) 

a0 FOR 1=0 TO 7:S(I)=8IN(A) 

50 C(I)=COS(A):A=A+PT/4:NEXT 

60 L=128:%=52:Y=B0:T=-1:POKE 58, 
T+1:5=S-1 

65 LINE -(X,Y),4 

70 GOSUB 1000 

80 GOTO B0 

1000 L=L/1.414 

1010 IF L<MN THEN L=L*1.414:X=X 
+(L*C(I)) :Y=Y-(L*S(I)):LINE -(X 
7), 11: RETURN 

1020 I=(I+T) AND 7:POKE S,T+1:5 


po 



































| Existe alguma aplicação prática para os 
| fractais? 

Os fractais são uma descoberta re- 
lativamente recente da matemática e 
das ciências da computação. Assim, há | 
muito a ser investigado acerca de seu 
funcionamento e as aplicações práticas 
| ainda são bastante restritas. Os frac- 
| tais oferecem aos artistas e cientistas 
a possibilidade de representar as for- 
mas irregulares, típicas da natureza, e 
já têm marcado sua presença no mun- 
do das artes gráficas, cinema, televi- 
são etc. Grandes empresas de televi- | 
são, por exemplo, estão utilizando frac- 
tais randômicos para gerar em compu- 
tador fantásticas paisagens e cenários, 
terrestres ou extraterrestres. À simu- 
lação fractal apresenta a vantagem de, 
com pequenas mudanças nos parâme- 
tros do programa, produzir efeitos to- 
talmente diferentes na tela. 

Outra aplicação prática interessan- 
te dos fractais é o desenho de cenários 
complexos em simuladores de vôo. À 
Força Aérea norte-americana já dispõe 
de programas que permitem gerar o ce- 
| nário de uma batalha aérea entre mon- 
| tanhas escarpadas, sobre desertos 
| etc., para treinar o piloto de helicópte- 
| TOS OU caças. 





=3-1:T=1:GOSUB 1000:5=5+1:T=PEE 
K(S)-1 

1030 I=(1I-2*T) AND 7:POKE S,T+1 
“S=S-1:T=-]:GOSUB 1000 

1040 S=S+1:T=PEEK(S)-1l:I=(I+TJA 
ND 7:L=L*1.414:RETURN 


Esse programa difere do anterior 
quanto à regra de formação do desenho 
e, também, quanto à velocidade de exe- 
cução. Em vez de elaborar o ângulo ca- 
da vez que um elemento é traçado, o 
programa calcula o seno e o co-seno dos 
ângulos (linhas 40 e 50) e coloca os va- 
lores obtidos em duas matrizes. Recu- 
perar esses valores em uma matriz é bem 
mais rápido que calculá-los sempre que 
uma linha é reconstruída. 

A curva em C e a curva do dragão 
não são apenas curiosidades matemáti- 
cas. Além de muito bonitas, elas cons- 
tituem um interessante objeto de estu- 
do. Procure, por exemplo, alterar al- 
guns valores dentro dos dois programas. 
Você obterá, então, um estoque inesgo- 
tável de novas formas. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NInranaENO PRÓXIMO NÚMEROHHHEHEHI 


PROGRAMAÇÃO BASIC 
A tela de textos do MSX. Desenho das letras. A função BASE. 
Tabela de Padrões. Como criar um novo conjunto de caracteres. 


APLICAÇÕES 
O uso do microcomputador no planejamento de ambientes. 
Como tirar as medidas. Desenhos e escala. O giro das peças. 


PROGRAMAÇÃO BASIC 


Simulação de imagens com a técnica dos fractais. Simetria e 
assimetria. Programa gerador de figuras. Teste do programa. 


PROGRAMAÇÃO BASIC 
Bits e bytes em BASIC. Mudança de um bit. 
Combinações. AND, OR e NOT. 


,. 

my apso 
E k 
a 





